.equ LOCALID_BILL, 1

OneIsland_MapScripts:: @ 8167484
	map_script MAP_SCRIPT_ON_TRANSITION, OneIsland_OnTransition
	map_script MAP_SCRIPT_ON_FRAME_TABLE, OneIsland_OnFrame
	.byte 0

OneIsland_OnTransition:: @ 816748F
	setflag FLAG_VISITED_ONE_ISLAND
	end

OneIsland_OnFrame:: @ 8167493
	map_script_2 VAR_MAP_SCENE_ONE_ISLAND_HARBOR, 2, OneIsland_EventScript_EnterOneIslandFirstTime
	.2byte 0

OneIsland_EventScript_EnterOneIslandFirstTime:: @ 816749D
	lockall
	applymovement OBJ_EVENT_ID_PLAYER, OneIsland_Movement_PlayerExitHarbor
	waitmovement 0
	msgbox OneIsland_Text_BillLetsGoSeeCelio
	closemessage
	applymovement LOCALID_BILL, OneIsland_Movement_BillWalkToPokeCenter
	waitmovement 0
	removeobject LOCALID_BILL
	setvar VAR_MAP_SCENE_ONE_ISLAND_HARBOR, 3
	releaseall
	end

	.macro walk_to_pokecenter
	walk_up
	walk_up
	walk_up
	walk_up
	walk_right
	walk_right
	walk_up
	walk_up
	walk_up
	walk_up
	walk_up
	.endm

OneIsland_Movement_PlayerWalkToPokeCenter:: @ 81674F4
	walk_up
	walk_to_pokecenter
	step_end

OneIsland_Movement_PlayerEnterPokeCenter:: @ 8167501
	walk_up
	walk_up
	set_invisible
	step_end

OneIsland_Movement_PlayerExitHarbor:: @ 8167505
	walk_up
	step_end

OneIsland_Movement_BillWalkToPokeCenter:: @ 8167507
	walk_to_pokecenter
	walk_up
	step_end

OneIsland_Movement_BillEnterPokeCenter:: @ 8167514
	walk_up
	set_invisible
	step_end

OneIsland_EventScript_OldMan:: @ 8167517
	lock
	faceplayer
	@goto_if_set FLAG_SYS_CAN_LINK_WITH_RS, OneIsland_EventScript_OldManLinkHoenn
	@goto_if_set FLAG_SEVII_DETOUR_FINISHED, OneIsland_EventScript_OldManLinkKanto
	msgbox OneIsland_Text_LuckyToHaveCelioHere
	release
	end

OneIsland_EventScript_OldManLinkKanto:: @ 8167535
@	msgbox OneIsland_Text_HavePCLinkageWithKanto
	release
	end

OneIsland_EventScript_OldManLinkHoenn:: @ 816753F
@	msgbox OneIsland_Text_HavePCLinkageWithHoenn
	release
	end

OneIsland_EventScript_BaldingMan:: @ 8167549
	msgbox OneIsland_Text_IsntWarmClimateHereGreat, MSGBOX_NPC
	end

OneIsland_EventScript_IslandSign:: @ 8167552
	msgbox OneIsland_Text_IslandSign, MSGBOX_SIGN
	end

OneIsland_EventScript_PokemonNetCenterSign:: @ 816755B
	msgbox OneIsland_Text_PokemonNetCenterSign, MSGBOX_SIGN
	end

OneIsland_Text_BillLetsGoSeeCelio:
    .string "{PLAYER}, 没想到你\n"
    .string "这么快就跟过来了。\p"
    .string "这里是一之岛，\n"
    .string "周围还有许多其他这样的岛屿.\p"
    .string "这块地区是充满了生机的地区，\p"
    .string "其他地区的知名训练师\n也会到这里寻找挑战对手。\p"
    .string "我还会在这片区域继续探索一段时间\n"
    .string "同时达到超越你的目的\p"
    .string "我先走了\n"
    .string "下次再见。$"

OneIsland_Text_LuckyToHaveCelioHere:
    .string "这里是一之岛的正中心\n"
    .string "一之岛是被宝可梦祝福的岛屿\p"
    .string "能够生活在这里实在太幸运了$"

OneIsland_Text_IsntWarmClimateHereGreat:
    .string "嗨，你是这里来观光的吗？\n这里气候温和，真是个好地方啊。$"

OneIsland_Text_IslandSign:: @ 81819E1
    .string "一之岛\n朋友们聚集的小岛$"

OneIsland_Text_PokemonNetCenterSign:: @ 8181A0A
    .string "扩展宝可梦的世界！\n宝可梦网络中心$"


